home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  64 lines
  1. 10  DIM S%(2): GOSUB 60000
  2. 20  DIM V%(5),F$(100)
  3. 100  CALL S%(0),"",V%(0),F$(0)
  4. 105  CALL S%(2),47,30,A,0,F$(0)
  5. 110 I = (9 *16 +11) *256: REM $9B00
  6. 120  IF  PEEK(I) >0  THEN 500
  7. 178  HOME 
  8. 180  GOTO 500
  9. 190  REM <CTRL-J>
  10. 200  FLASH 
  11. 205  VTAB 3: HTAB 17
  12. 210  PRINT " ";TT$;" ";
  13. 220  NORMAL : CALL  -868
  14. 230  RETURN 
  15. 490  REM <CTRL-J>
  16. 500  PRINT "VOL ";V%(0);
  17. 600  PRINT "  ";V%(1);"% USED  (";V%(2);" FREE SECTORS)"
  18. 700  PRINT 
  19. 800  PRINT "ENTER ";
  20. 810  INVERSE 
  21. 820  PRINT "LETTER";
  22. 825  NORMAL 
  23. 830  PRINT " TO ";
  24. 870 TT$ = "RUN/EXEC"
  25. 880 T$ = "RUN"
  26. 900  GOSUB 200
  27. 1700  REM <CTRL-J>
  28. 1800  CALL S%(1),39,46,N,F$(0),N,I
  29. 2000  IF I = 0  THEN 4900
  30. 4200  IF I = 12  THEN T$ = "LOAD":TT$ = "LOAD/LIST": GOTO 4402
  31. 4250  IF I = 18  THEN T$ = "RUN":TT$ = "RUN/EXEC": GOTO 4402
  32. 4350  IF I = 27  THEN  HOME : END 
  33. 4370  PRINT "<CTRL-G>";: GOTO 1800
  34. 4402  GOSUB 200: GOTO 1800
  35. 4900  REM <CTRL-J>
  36. 5000 F$ = F$(N)
  37. 5010 T1$ =  MID$ (F$,41,1)
  38. 5020 A1$ =  MID$ (F$,8,30)
  39. 5100 A$ =  MID$ (F$,47)
  40. 5310  HOME 
  41. 5400  IF T1$ = "T"  THEN 6000
  42. 5410  IF T1$ = "B"  THEN T$ = "B" +T$
  43. 5500  VTAB 12
  44. 5510  HTAB 19 -( LEN(T$ +A$)/2)
  45. 5600  PRINT "<";T$;" ";A$;">"
  46. 5700  PRINT "<CTRL-D>";T$;A1$
  47. 5710  END 
  48. 5990  REM <CTRL-J>
  49. 6000  IF T$ = "LOAD"  THEN 6250
  50. 6010  PRINT "<EXEC ";A$;">": PRINT 
  51. 6100  PRINT "<CTRL-D>EXEC";A1$
  52. 6200  END 
  53. 6240  REM <CTRL-J>
  54. 6250  PRINT "<LIST ";A$;">": PRINT 
  55. 6300  PRINT "<CTRL-D>OPEN";A1$
  56. 6400  PRINT "<CTRL-D>READ";A1$
  57. 6410  ONERR  GOTO 6700
  58. 6500  GET C$
  59. 6600  PRINT " ";C$;
  60. 6610  GOTO 6500
  61. 6700  PRINT : PRINT "<CTRL-D>CLOSE";A1$
  62. 59990  END : REM <CTRL-J>
  63. 60000 ZZ =  PEEK(121) + PEEK(122) *256 +41
  64. 60010  CALL ZZ: RETURN